home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / News Stack™ 1.1.cpt / News Stack™ 1.1 / News Stack 1.1a2 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1987-09-04  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.1a2</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>5393</cardID>
  8.     <listID>2149</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStackglobal clippingStrglobal onWhatglobal opusOnglobal delphiOnglobal maugOnglobal fidoOnglobal usenetOnglobal genieOnglobal otherOnset lockscreen to trueif the number of this card = 1 thenclearHelpset hilite of bkgnd button fido to trueset hilite of bkgnd button opus to falseset hilite of bkgnd button compuserve to falseset hilite of bkgnd button delphi to falseset hilite of bkgnd button genie to falseset hilite of bkgnd button picospan to falseset hilite of bkgnd button other to falseset visible of card field "no clone" to falseend ifput "n" into delphiOnput "n" into opusOnput "n" into maugOnput "n" into usenetOnput "n" into genieOnput "n" into otherOnput "y" into fidoOnput "fido" into onWhathide menubarset cursor to 4show message boxdomenu "Find..."global whatOnput "fido" into whatOngo card 2put field clipping into clippingStrgo card 1set lockscreen to falseend openStackon closeStackglobal clippingStrset lockscreen to trueset cursor to 4go card 2put clippingStr into field clippinggo card 1set hilite of bkgnd button fido to trueend closeStackon deleteItglobal delDateput "n" into deletedput field date into theDateif (theDate = "*") then put empty into theDateconvert theDate to secondsif (theDate <> 0) and ((theDate - delDate) < 0) thenput "Deleting card #" & field "card #" & ¬¨" (" & the number of cards & ")" into messagedomenu "delete card"put "y" into deletedend ifif (deleted = "n") thenput "Keeping card #" & field "card #" & ¬¨" (" & the number of cards & ")" into messagego next cardend ifend deleteIton deleteDateglobal deleteModeglobal delDateput "y" into deleteModeask "Earliest date of articles to keep?"if it is empty then exit deleteDateset lockscreen to trueset cursor to 4put it into delDateconvert delDate to secondsgo card 4set lockscreen to trueset cursor to 4repeat until (the number of this card) = (the number of cards)deleteItend repeatdeleteItgo card 1put "n" into deleteModeput "All Done" into messagebeepend deleteDateon doHelpset lockscreen to trueset visible of card field "help 1" to trueset visible of card button "reading text" to trueset visible of card button "suggestions" to trueset visible of card button "housekeeping" to trueset visible of card button "clipping" to trueset visible of card button "version info" to trueset lockscreen to falseend doHelpon clearHelpset lockscreen to trueset visible of card field "Help 3" to falseset visible of card button "reading text" to falseset visible of card field "Help 2" to falseset visible of card button "suggestions" to falseset visible of card field "help 4" to falseset visible of card button "housekeeping" to falseset visible of card button "clipping" to falseset visible of card field "help 5" to falseset visible of card button "version info" to falseset visible of card field "help 6" to falseset visible of card field "Help 1" to falseset lockscreen to falseend clearHelpon displayAddglobal addOnglobal whatOnput "y" into addOnset lockscreen to trueset visible of bkgnd field "services" to trueset visible of bkgnd button fido to trueset visible of bkgnd button opus to trueset visible of bkgnd button compuserve to trueset visible of bkgnd button delphi to trueset visible of bkgnd button picospan to trueset visible of bkgnd button genie to trueset visible of bkgnd button other to trueif whatOn = "other" thenset visible of bkgnd field "other" to trueend ifset lockscreen to falseend displayAddon addOffglobal addOnput "n" into addOnset lockscreen to trueset visible of bkgnd button